﻿Imports System.Windows.Forms

Public Class MDIParent1

    Private Sub BuscaminasToolStripMenuItem1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscaminasToolStripMenuItem1.Click
        Dim frmBuscaminas As New frmBuscaminas
        frmBuscaminas.MdiParent = Me
        frmBuscaminas.Show()
    End Sub

    Private Sub ComecocosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComecocosToolStripMenuItem.Click
        'Dim frmcomecocos As New frmPacMan
        'frmcomecocos.MdiParent = Me
        frmPacMan.Show()
    End Sub

    Private Sub ParejasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ParejasToolStripMenuItem.Click
        Dim frmparejas As New frmParejas
        frmparejas.MdiParent = Me
        frmparejas.Show()
    End Sub


    Private Sub DesloguearToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesloguearToolStripMenuItem.Click
        MiJuego.GuardarPuntuacion(MiJuego.LeerUsuarios)


        Me.Close()
        frmPrincipal.Show()

    End Sub

    Private Sub AcercaDeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AcercaDeToolStripMenuItem.Click
        frmAcercaDe.Show()
    End Sub

    Private Sub SnakeToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SnakeToolStripMenuItem1.Click
        'Dim frmSnake As New frmSnake
        'frmSnake.MdiParent = Me
        frmSnake.Show()

    End Sub



    Private Sub MDIParent1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ToolStripStatusLabel.Text = "Bienvenido " & MiJuego.UsuarioActual.Nick
    End Sub

    Private Sub TodosLosUsuariosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TodosLosUsuariosToolStripMenuItem.Click
        Dim puntuaciones As New frmPuntuacionesTotales
        puntuaciones.MdiParent = Me
        puntuaciones.Show()
    End Sub

    Private Sub OptionsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionsToolStripMenuItem.Click
        Dim puntuaciones As New frmPuntuacionesIndividuales
        puntuaciones.MdiParent = Me
        puntuaciones.Show()
    End Sub
End Class
